home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 6 / QRZ Ham Radio Callsign Database - Volume 6.iso / pc / files / mac / varilogs.hqx / Logs / Logging Stacks UK / Roster / background_2619.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-04-29  |  24.3 KB  |  706 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2619</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3275.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_2099.css" />
  11.     <part>
  12.         <id>9</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>141</left>
  23.             <top>266</top>
  24.             <right>167</right>
  25.             <bottom>289</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <false /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>1014</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Prev</name>
  40.         <script>on mouseUp
  41. visual effect wipe left
  42. go to prev card
  43. end mouseUp
  44. </script>
  45.     </part>
  46.     <part>
  47.         <id>8</id>
  48.         <type>button</type>
  49.         <visible> <true /> </visible>
  50.         <reserved5> 0 </reserved5>
  51.         <reserved4> 0 </reserved4>
  52.         <reserved3> 0 </reserved3>
  53.         <reserved2> 0 </reserved2>
  54.         <reserved1> 0 </reserved1>
  55.         <enabled> <true /> </enabled>
  56.         <rect>
  57.             <left>192</left>
  58.             <top>266</top>
  59.             <right>217</right>
  60.             <bottom>289</bottom>
  61.         </rect>
  62.         <style>transparent</style>
  63.         <showName> <false /> </showName>
  64.         <highlight> <false /> </highlight>
  65.         <autoHighlight> <false /> </autoHighlight>
  66.         <sharedHighlight> <true /> </sharedHighlight>
  67.         <family>0</family>
  68.         <titleWidth>0</titleWidth>
  69.         <icon>1013</icon>
  70.         <textAlign>center</textAlign>
  71.         <font>Chicago</font>
  72.         <textSize>12</textSize>
  73.         <textStyle>plain</textStyle>
  74.         <name>Next</name>
  75.         <script>on mouseUp
  76. visual effect wipe right
  77. go to next card
  78. end mouseUp
  79. </script>
  80.     </part>
  81.     <part>
  82.         <id>17</id>
  83.         <type>field</type>
  84.         <visible> <true /> </visible>
  85.         <dontWrap> <false /> </dontWrap>
  86.         <dontSearch> <false /> </dontSearch>
  87.         <sharedText> <false /> </sharedText>
  88.         <fixedLineHeight> <true /> </fixedLineHeight>
  89.         <autoTab> <false /> </autoTab>
  90.         <lockText> <false /> </lockText>
  91.         <rect>
  92.             <left>40</left>
  93.             <top>49</top>
  94.             <right>128</right>
  95.             <bottom>68</bottom>
  96.         </rect>
  97.         <style>transparent</style>
  98.         <autoSelect> <false /> </autoSelect>
  99.         <showLines> <false /> </showLines>
  100.         <wideMargins> <false /> </wideMargins>
  101.         <multipleLines> <false /> </multipleLines>
  102.         <reservedFamily> 0 </reservedFamily>
  103.         <titleWidth>0</titleWidth>
  104.         <icon>0</icon>
  105.         <textAlign>left</textAlign>
  106.         <font></font>
  107.         <textSize>12</textSize>
  108.         <textStyle>bold</textStyle>
  109.         <textHeight>16</textHeight>
  110.         <name>Call</name>
  111.         <script></script>
  112.     </part>
  113.     <part>
  114.         <id>26</id>
  115.         <type>field</type>
  116.         <visible> <true /> </visible>
  117.         <dontWrap> <false /> </dontWrap>
  118.         <dontSearch> <false /> </dontSearch>
  119.         <sharedText> <false /> </sharedText>
  120.         <fixedLineHeight> <true /> </fixedLineHeight>
  121.         <autoTab> <false /> </autoTab>
  122.         <lockText> <false /> </lockText>
  123.         <rect>
  124.             <left>248</left>
  125.             <top>50</top>
  126.             <right>297</right>
  127.             <bottom>69</bottom>
  128.         </rect>
  129.         <style>transparent</style>
  130.         <autoSelect> <false /> </autoSelect>
  131.         <showLines> <false /> </showLines>
  132.         <wideMargins> <false /> </wideMargins>
  133.         <multipleLines> <false /> </multipleLines>
  134.         <reservedFamily> 0 </reservedFamily>
  135.         <titleWidth>0</titleWidth>
  136.         <icon>0</icon>
  137.         <textAlign>left</textAlign>
  138.         <font></font>
  139.         <textSize>12</textSize>
  140.         <textStyle>bold</textStyle>
  141.         <textHeight>16</textHeight>
  142.         <name>call district</name>
  143.         <script></script>
  144.     </part>
  145.     <part>
  146.         <id>38</id>
  147.         <type>field</type>
  148.         <visible> <true /> </visible>
  149.         <dontWrap> <false /> </dontWrap>
  150.         <dontSearch> <false /> </dontSearch>
  151.         <sharedText> <false /> </sharedText>
  152.         <fixedLineHeight> <true /> </fixedLineHeight>
  153.         <autoTab> <false /> </autoTab>
  154.         <lockText> <false /> </lockText>
  155.         <rect>
  156.             <left>45</left>
  157.             <top>71</top>
  158.             <right>337</right>
  159.             <bottom>90</bottom>
  160.         </rect>
  161.         <style>transparent</style>
  162.         <autoSelect> <false /> </autoSelect>
  163.         <showLines> <false /> </showLines>
  164.         <wideMargins> <false /> </wideMargins>
  165.         <multipleLines> <false /> </multipleLines>
  166.         <reservedFamily> 0 </reservedFamily>
  167.         <titleWidth>0</titleWidth>
  168.         <icon>0</icon>
  169.         <textAlign>left</textAlign>
  170.         <font>Geneva</font>
  171.         <textSize>12</textSize>
  172.         <textStyle>plain</textStyle>
  173.         <textHeight>16</textHeight>
  174.         <name>name</name>
  175.         <script></script>
  176.     </part>
  177.     <part>
  178.         <id>21</id>
  179.         <type>field</type>
  180.         <visible> <true /> </visible>
  181.         <dontWrap> <false /> </dontWrap>
  182.         <dontSearch> <false /> </dontSearch>
  183.         <sharedText> <false /> </sharedText>
  184.         <fixedLineHeight> <true /> </fixedLineHeight>
  185.         <autoTab> <false /> </autoTab>
  186.         <lockText> <false /> </lockText>
  187.         <rect>
  188.             <left>61</left>
  189.             <top>94</top>
  190.             <right>354</right>
  191.             <bottom>112</bottom>
  192.         </rect>
  193.         <style>transparent</style>
  194.         <autoSelect> <false /> </autoSelect>
  195.         <showLines> <false /> </showLines>
  196.         <wideMargins> <false /> </wideMargins>
  197.         <multipleLines> <false /> </multipleLines>
  198.         <reservedFamily> 0 </reservedFamily>
  199.         <titleWidth>0</titleWidth>
  200.         <icon>0</icon>
  201.         <textAlign>left</textAlign>
  202.         <font>Geneva</font>
  203.         <textSize>12</textSize>
  204.         <textStyle>plain</textStyle>
  205.         <textHeight>16</textHeight>
  206.         <name>address</name>
  207.         <script></script>
  208.     </part>
  209.     <part>
  210.         <id>22</id>
  211.         <type>field</type>
  212.         <visible> <true /> </visible>
  213.         <dontWrap> <false /> </dontWrap>
  214.         <dontSearch> <false /> </dontSearch>
  215.         <sharedText> <false /> </sharedText>
  216.         <fixedLineHeight> <true /> </fixedLineHeight>
  217.         <autoTab> <false /> </autoTab>
  218.         <lockText> <false /> </lockText>
  219.         <rect>
  220.             <left>42</left>
  221.             <top>118</top>
  222.             <right>192</right>
  223.             <bottom>138</bottom>
  224.         </rect>
  225.         <style>transparent</style>
  226.         <autoSelect> <false /> </autoSelect>
  227.         <showLines> <false /> </showLines>
  228.         <wideMargins> <false /> </wideMargins>
  229.         <multipleLines> <false /> </multipleLines>
  230.         <reservedFamily> 0 </reservedFamily>
  231.         <titleWidth>0</titleWidth>
  232.         <icon>0</icon>
  233.         <textAlign>left</textAlign>
  234.         <font>Geneva</font>
  235.         <textSize>12</textSize>
  236.         <textStyle>plain</textStyle>
  237.         <textHeight>16</textHeight>
  238.         <name>city</name>
  239.         <script></script>
  240.     </part>
  241.     <part>
  242.         <id>23</id>
  243.         <type>field</type>
  244.         <visible> <true /> </visible>
  245.         <dontWrap> <false /> </dontWrap>
  246.         <dontSearch> <false /> </dontSearch>
  247.         <sharedText> <false /> </sharedText>
  248.         <fixedLineHeight> <true /> </fixedLineHeight>
  249.         <autoTab> <false /> </autoTab>
  250.         <lockText> <false /> </lockText>
  251.         <rect>
  252.             <left>250</left>
  253.             <top>118</top>
  254.             <right>352</right>
  255.             <bottom>138</bottom>
  256.         </rect>
  257.         <style>transparent</style>
  258.         <autoSelect> <false /> </autoSelect>
  259.         <showLines> <false /> </showLines>
  260.         <wideMargins> <false /> </wideMargins>
  261.         <multipleLines> <false /> </multipleLines>
  262.         <reservedFamily> 0 </reservedFamily>
  263.         <titleWidth>0</titleWidth>
  264.         <icon>0</icon>
  265.         <textAlign>left</textAlign>
  266.         <font>Geneva</font>
  267.         <textSize>12</textSize>
  268.         <textStyle>plain</textStyle>
  269.         <textHeight>16</textHeight>
  270.         <name>postcode</name>
  271.         <script></script>
  272.     </part>
  273.     <part>
  274.         <id>25</id>
  275.         <type>field</type>
  276.         <visible> <true /> </visible>
  277.         <dontWrap> <false /> </dontWrap>
  278.         <dontSearch> <false /> </dontSearch>
  279.         <sharedText> <false /> </sharedText>
  280.         <fixedLineHeight> <true /> </fixedLineHeight>
  281.         <autoTab> <false /> </autoTab>
  282.         <lockText> <false /> </lockText>
  283.         <rect>
  284.             <left>106</left>
  285.             <top>159</top>
  286.             <right>232</right>
  287.             <bottom>176</bottom>
  288.         </rect>
  289.         <style>transparent</style>
  290.         <autoSelect> <false /> </autoSelect>
  291.         <showLines> <false /> </showLines>
  292.         <wideMargins> <false /> </wideMargins>
  293.         <multipleLines> <false /> </multipleLines>
  294.         <reservedFamily> 0 </reservedFamily>
  295.         <titleWidth>0</titleWidth>
  296.         <icon>0</icon>
  297.         <textAlign>left</textAlign>
  298.         <font>Geneva</font>
  299.         <textSize>12</textSize>
  300.         <textStyle>plain</textStyle>
  301.         <textHeight>16</textHeight>
  302.         <name>Telephone1</name>
  303.         <script></script>
  304.     </part>
  305.     <part>
  306.         <id>31</id>
  307.         <type>button</type>
  308.         <visible> <true /> </visible>
  309.         <reserved5> 0 </reserved5>
  310.         <reserved4> 0 </reserved4>
  311.         <reserved3> 0 </reserved3>
  312.         <reserved2> 0 </reserved2>
  313.         <reserved1> 0 </reserved1>
  314.         <enabled> <true /> </enabled>
  315.         <rect>
  316.             <left>255</left>
  317.             <top>235</top>
  318.             <right>341</right>
  319.             <bottom>257</bottom>
  320.         </rect>
  321.         <style>shadow</style>
  322.         <showName> <true /> </showName>
  323.         <highlight> <false /> </highlight>
  324.         <autoHighlight> <false /> </autoHighlight>
  325.         <sharedHighlight> <true /> </sharedHighlight>
  326.         <family>0</family>
  327.         <titleWidth>0</titleWidth>
  328.         <icon>0</icon>
  329.         <textAlign>center</textAlign>
  330.         <font>Chicago</font>
  331.         <textSize>12</textSize>
  332.         <textStyle>plain</textStyle>
  333.         <name>Sort by Call</name>
  334.         <script>on mouseUp
  335. sort by field "call"
  336. end mouseUp
  337. </script>
  338.     </part>
  339.     <part>
  340.         <id>32</id>
  341.         <type>button</type>
  342.         <visible> <true /> </visible>
  343.         <reserved5> 0 </reserved5>
  344.         <reserved4> 0 </reserved4>
  345.         <reserved3> 0 </reserved3>
  346.         <reserved2> 0 </reserved2>
  347.         <reserved1> 0 </reserved1>
  348.         <enabled> <true /> </enabled>
  349.         <rect>
  350.             <left>154</left>
  351.             <top>235</top>
  352.             <right>251</right>
  353.             <bottom>257</bottom>
  354.         </rect>
  355.         <style>shadow</style>
  356.         <showName> <true /> </showName>
  357.         <highlight> <false /> </highlight>
  358.         <autoHighlight> <false /> </autoHighlight>
  359.         <sharedHighlight> <true /> </sharedHighlight>
  360.         <family>0</family>
  361.         <titleWidth>0</titleWidth>
  362.         <icon>0</icon>
  363.         <textAlign>center</textAlign>
  364.         <font>Chicago</font>
  365.         <textSize>12</textSize>
  366.         <textStyle>plain</textStyle>
  367.         <name>Sort by Name</name>
  368.         <script>on mouseUp
  369. sort by last word of field "name"
  370. end mouseUp
  371. </script>
  372.     </part>
  373.     <part>
  374.         <id>33</id>
  375.         <type>button</type>
  376.         <visible> <true /> </visible>
  377.         <reserved5> 0 </reserved5>
  378.         <reserved4> 0 </reserved4>
  379.         <reserved3> 0 </reserved3>
  380.         <reserved2> 0 </reserved2>
  381.         <reserved1> 0 </reserved1>
  382.         <enabled> <true /> </enabled>
  383.         <rect>
  384.             <left>296</left>
  385.             <top>294</top>
  386.             <right>401</right>
  387.             <bottom>316</bottom>
  388.         </rect>
  389.         <style>shadow</style>
  390.         <showName> <true /> </showName>
  391.         <highlight> <false /> </highlight>
  392.         <autoHighlight> <true /> </autoHighlight>
  393.         <sharedHighlight> <false /> </sharedHighlight>
  394.         <family>0</family>
  395.         <titleWidth>0</titleWidth>
  396.         <icon>0</icon>
  397.         <textAlign>center</textAlign>
  398.         <font>Chicago</font>
  399.         <textSize>12</textSize>
  400.         <textStyle>plain</textStyle>
  401.         <name>Export Labels</name>
  402.         <script>on mouseUp
  403. sort by field "name"
  404. sort by field "country"
  405. get shortname of this stack
  406. put it & " labels" into fileName
  407. ask "Export text to what file?" with fileName
  408. if it is empty then exit mouseUp
  409. put it into fileName
  410. open file fileName
  411. write "Name" & tab & "Address" & tab & "City" & tab "postcode" & tab country" & return┬¼
  412. to file fileName
  413. go to first card
  414. repeat for the number of cards
  415. write quote & field "name" & ", " & field call & quote & tab┬¼
  416. & field "address" & tab & quote & field "city" & ", "┬¼
  417. & field "postcode" & space & field country & quote┬¼
  418. & field "postcode" & return to file fileName
  419. go to next card
  420. end repeat
  421. close file fileName
  422. end mouseUp
  423. </script>
  424.     </part>
  425.     <part>
  426.         <id>34</id>
  427.         <type>field</type>
  428.         <visible> <true /> </visible>
  429.         <dontWrap> <false /> </dontWrap>
  430.         <dontSearch> <false /> </dontSearch>
  431.         <sharedText> <false /> </sharedText>
  432.         <fixedLineHeight> <true /> </fixedLineHeight>
  433.         <autoTab> <false /> </autoTab>
  434.         <lockText> <false /> </lockText>
  435.         <rect>
  436.             <left>106</left>
  437.             <top>181</top>
  438.             <right>232</right>
  439.             <bottom>198</bottom>
  440.         </rect>
  441.         <style>transparent</style>
  442.         <autoSelect> <false /> </autoSelect>
  443.         <showLines> <false /> </showLines>
  444.         <wideMargins> <false /> </wideMargins>
  445.         <multipleLines> <false /> </multipleLines>
  446.         <reservedFamily> 0 </reservedFamily>
  447.         <titleWidth>0</titleWidth>
  448.         <icon>0</icon>
  449.         <textAlign>left</textAlign>
  450.         <font>Geneva</font>
  451.         <textSize>12</textSize>
  452.         <textStyle>plain</textStyle>
  453.         <textHeight>16</textHeight>
  454.         <name>Telephone2</name>
  455.         <script></script>
  456.     </part>
  457.     <part>
  458.         <id>27</id>
  459.         <type>field</type>
  460.         <visible> <true /> </visible>
  461.         <dontWrap> <false /> </dontWrap>
  462.         <dontSearch> <false /> </dontSearch>
  463.         <sharedText> <false /> </sharedText>
  464.         <fixedLineHeight> <true /> </fixedLineHeight>
  465.         <autoTab> <false /> </autoTab>
  466.         <lockText> <false /> </lockText>
  467.         <rect>
  468.             <left>361</left>
  469.             <top>69</top>
  470.             <right>487</right>
  471.             <bottom>287</bottom>
  472.         </rect>
  473.         <style>scrolling</style>
  474.         <autoSelect> <false /> </autoSelect>
  475.         <showLines> <true /> </showLines>
  476.         <wideMargins> <false /> </wideMargins>
  477.         <multipleLines> <false /> </multipleLines>
  478.         <reservedFamily> 0 </reservedFamily>
  479.         <titleWidth>0</titleWidth>
  480.         <icon>0</icon>
  481.         <textAlign>left</textAlign>
  482.         <font>Geneva</font>
  483.         <textSize>10</textSize>
  484.         <textStyle>plain</textStyle>
  485.         <textHeight>13</textHeight>
  486.         <name>member data</name>
  487.         <script></script>
  488.     </part>
  489.     <part>
  490.         <id>35</id>
  491.         <type>button</type>
  492.         <visible> <true /> </visible>
  493.         <reserved5> 0 </reserved5>
  494.         <reserved4> 0 </reserved4>
  495.         <reserved3> 0 </reserved3>
  496.         <reserved2> 0 </reserved2>
  497.         <reserved1> 0 </reserved1>
  498.         <enabled> <true /> </enabled>
  499.         <rect>
  500.             <left>294</left>
  501.             <top>209</top>
  502.             <right>341</right>
  503.             <bottom>230</bottom>
  504.         </rect>
  505.         <style>shadow</style>
  506.         <showName> <true /> </showName>
  507.         <highlight> <false /> </highlight>
  508.         <autoHighlight> <true /> </autoHighlight>
  509.         <sharedHighlight> <true /> </sharedHighlight>
  510.         <family>0</family>
  511.         <titleWidth>0</titleWidth>
  512.         <icon>0</icon>
  513.         <textAlign>center</textAlign>
  514.         <font>Chicago</font>
  515.         <textSize>12</textSize>
  516.         <textStyle>plain</textStyle>
  517.         <name>Find</name>
  518.         <script>on mouseUp
  519. doMenu "Find..."
  520. set the loc of message to 6,315
  521. end mouseUp
  522. </script>
  523.     </part>
  524.     <part>
  525.         <id>36</id>
  526.         <type>button</type>
  527.         <visible> <true /> </visible>
  528.         <reserved5> 0 </reserved5>
  529.         <reserved4> 0 </reserved4>
  530.         <reserved3> 0 </reserved3>
  531.         <reserved2> 0 </reserved2>
  532.         <reserved1> 0 </reserved1>
  533.         <enabled> <true /> </enabled>
  534.         <rect>
  535.             <left>210</left>
  536.             <top>209</top>
  537.             <right>290</right>
  538.             <bottom>230</bottom>
  539.         </rect>
  540.         <style>shadow</style>
  541.         <showName> <true /> </showName>
  542.         <highlight> <false /> </highlight>
  543.         <autoHighlight> <false /> </autoHighlight>
  544.         <sharedHighlight> <true /> </sharedHighlight>
  545.         <family>0</family>
  546.         <titleWidth>0</titleWidth>
  547.         <icon>0</icon>
  548.         <textAlign>center</textAlign>
  549.         <font>Chicago</font>
  550.         <textSize>12</textSize>
  551.         <textStyle>plain</textStyle>
  552.         <name>New Entry</name>
  553.         <script>on mouseUp
  554. visual effect wipe left
  555. go last card
  556. visual effect scroll left
  557. doMenu "New Card"
  558. tabKey
  559. end mouseUp
  560. </script>
  561.     </part>
  562.     <part>
  563.         <id>42</id>
  564.         <type>button</type>
  565.         <visible> <true /> </visible>
  566.         <reserved5> 0 </reserved5>
  567.         <reserved4> 0 </reserved4>
  568.         <reserved3> 0 </reserved3>
  569.         <reserved2> 0 </reserved2>
  570.         <reserved1> 0 </reserved1>
  571.         <enabled> <true /> </enabled>
  572.         <rect>
  573.             <left>95</left>
  574.             <top>294</top>
  575.             <right>197</right>
  576.             <bottom>316</bottom>
  577.         </rect>
  578.         <style>shadow</style>
  579.         <showName> <true /> </showName>
  580.         <highlight> <false /> </highlight>
  581.         <autoHighlight> <true /> </autoHighlight>
  582.         <sharedHighlight> <false /> </sharedHighlight>
  583.         <family>0</family>
  584.         <titleWidth>0</titleWidth>
  585.         <icon>0</icon>
  586.         <textAlign>center</textAlign>
  587.         <font>Chicago</font>
  588.         <textSize>12</textSize>
  589.         <textStyle>plain</textStyle>
  590.         <name>Packet Export</name>
  591.         <script>on mouseUp
  592. set cursor to 4
  593. put the short name of this stack & ".packet" into fileName
  594. ask "Export text to what file?" with fileName
  595. if it is empty then exit mouseUp
  596. put it into fileName
  597. open file fileName
  598. go to first card
  599. repeat for the number of cards
  600. put field "call" into kall
  601. if kall is empty or kall is "none" then
  602. put space & space & space & space & space & space into kall -- 6 chars for no call
  603. end if
  604. if the charToNum of second char of kall >= 48 and second char of kall <= 57 then
  605. put space after second char of kall
  606. put space before first char of kall
  607. else
  608. put space after third char of kall
  609. end if
  610. if length of kall is 5 then
  611. put space & space after kall --temporary 7 chars for kall
  612. end if
  613. if length of kall is 6 then
  614. put space & space & space after kall --9 chars for kall
  615. else
  616. put space & space after kall --9 chars for kall and no call
  617. end if
  618. write kall to file fileName
  619. put field "name" into name
  620. put 1 into temp
  621. repeat until temp is 0
  622. get length of name
  623. put 22 - it into temp -- 22 chars for name, 31 so far
  624. put space after name
  625. end repeat
  626. write name to file fileName
  627. put field "city" & ", " & field "postcode" into qth
  628. put 1 into temp
  629. repeat until temp is 0
  630. get length of qth
  631. put 23 - it into temp -- 23 chars for qth, 54 so far
  632. put space after qth
  633. end repeat
  634. write qth to file fileName
  635. put field "telephone1" into phone
  636. put 1 into temp
  637. repeat until temp is 0
  638. get length of phone
  639. put 14 - it into temp -- 14 chars for phone, 68 so far
  640. put space after phone
  641. end repeat
  642. write phone to file fileName
  643. put field "BBS" into bbs -- 6 chars for BBS, 74 total
  644. if bbs is not empty then put "@" before bbs
  645. write bbs & return to file fileName
  646. go to next card
  647. end repeat
  648. close file fileName
  649. set cursor to 1
  650. end mouseUp
  651.  
  652.  
  653.  
  654.  
  655.  
  656.  
  657. --Call
  658. --call district
  659. --name
  660. --address
  661. --city
  662. --postcode
  663. --country
  664. --telephone home
  665. --telephone work
  666. --member data
  667. --MemberP
  668.  
  669.  
  670. </script>
  671.     </part>
  672.     <part>
  673.         <id>43</id>
  674.         <type>field</type>
  675.         <visible> <true /> </visible>
  676.         <dontWrap> <false /> </dontWrap>
  677.         <dontSearch> <false /> </dontSearch>
  678.         <sharedText> <false /> </sharedText>
  679.         <fixedLineHeight> <true /> </fixedLineHeight>
  680.         <autoTab> <false /> </autoTab>
  681.         <lockText> <false /> </lockText>
  682.         <rect>
  683.             <left>276</left>
  684.             <top>180</top>
  685.             <right>354</right>
  686.             <bottom>197</bottom>
  687.         </rect>
  688.         <style>rectangle</style>
  689.         <autoSelect> <false /> </autoSelect>
  690.         <showLines> <false /> </showLines>
  691.         <wideMargins> <false /> </wideMargins>
  692.         <multipleLines> <false /> </multipleLines>
  693.         <reservedFamily> 0 </reservedFamily>
  694.         <titleWidth>0</titleWidth>
  695.         <icon>0</icon>
  696.         <textAlign>left</textAlign>
  697.         <font>Geneva</font>
  698.         <textSize>12</textSize>
  699.         <textStyle>plain</textStyle>
  700.         <textHeight>16</textHeight>
  701.         <name>BBS</name>
  702.         <script></script>
  703.     </part>
  704.     <part>
  705.         <id>45</id>
  706.         <type>button</type>
  707.         <visible> <true /> </visible>
  708.         <reserved5> 0 </reserved5>
  709.         <reserved4> 0 </reserved4>
  710.         <reserved3> 0 </reserved3>
  711.         <reserved2> 0 </reserved2>
  712.         <reserved1> 0 </reserved1>
  713.         <enabled> <true /> </enabled>
  714.         <rect>
  715.             <left>11</left>
  716.             <top>294</top>
  717.             <right>92</right>
  718.             <bottom>316</bottom>
  719.         </rect>
  720.         <style>shadow</style>
  721.         <showName> <true /> </showName>
  722.         <highlight> <false /> </highlight>
  723.         <autoHighlight> <true /> </autoHighlight>
  724.         <sharedHighlight> <false /> </sharedHighlight>
  725.         <family>0</family>
  726.         <titleWidth>0</titleWidth>
  727.         <icon>0</icon>
  728.         <textAlign>center</textAlign>
  729.         <font>Chicago</font>
  730.         <textSize>12</textSize>
  731.         <textStyle>plain</textStyle>
  732.         <name>Field fixer</name>
  733.         <script>--because the import script encountering an empty field sometimes lets
  734. --an invisible tab or return character slip into the hc field, or the
  735. --user accidentally puts a return character into a text field,
  736. --when the hc database is exported it is all screwed up! So, this script
  737. --fixes up the hc database for export.
  738.  
  739. on mouseUp
  740. set cursor to 4
  741. put the name of this bkgnd into bakground
  742. go to first card of bkgnd bakground
  743. repeat for the number of cards
  744. get the name of this bkgnd
  745. if it is not bakground then exit repeat
  746. repeat with i = 1 to the number of fields
  747. get last char of field i
  748. if it is tab then put empty into last char of field i
  749. repeat while last char of field i is return
  750. get last char of field i
  751. if it is return then
  752. put empty into last char of field i
  753. end if
  754. end repeat
  755. repeat while offset(return,field i) is not 0
  756. get offset(return,field i)
  757. put space & "*" & space into char it of field i
  758. end repeat
  759. end repeat
  760. go next card
  761. end repeat
  762. end mouseUp</script>
  763.     </part>
  764.     <part>
  765.         <id>46</id>
  766.         <type>button</type>
  767.         <visible> <true /> </visible>
  768.         <reserved5> 0 </reserved5>
  769.         <reserved4> 0 </reserved4>
  770.         <reserved3> 0 </reserved3>
  771.         <reserved2> 0 </reserved2>
  772.         <reserved1> 0 </reserved1>
  773.         <enabled> <true /> </enabled>
  774.         <rect>
  775.             <left>199</left>
  776.             <top>294</top>
  777.             <right>292</right>
  778.             <bottom>316</bottom>
  779.         </rect>
  780.         <style>shadow</style>
  781.         <showName> <true /> </showName>
  782.         <highlight> <false /> </highlight>
  783.         <autoHighlight> <true /> </autoHighlight>
  784.         <sharedHighlight> <false /> </sharedHighlight>
  785.         <family>0</family>
  786.         <titleWidth>0</titleWidth>
  787.         <icon>0</icon>
  788.         <textAlign>center</textAlign>
  789.         <font>Chicago</font>
  790.         <textSize>12</textSize>
  791.         <textStyle>plain</textStyle>
  792.         <name>Export Data</name>
  793.         <script>on mouseUp
  794. put the short name of this stack & ".text" into fileName
  795. ask "Export text to what file?" with fileName
  796. if it is empty then exit mouseUp
  797. put it into fileName
  798. open file fileName
  799. set cursor to 4
  800. put the name of this bkgnd into bakground
  801. go to first card of bkgnd bakground
  802. repeat for the number of cards
  803. get the name of this bkgnd
  804. if it is not bakground then exit repeat
  805. repeat with i = 1 to the number of fields
  806. write field i & tab to file fileName
  807. end repeat
  808. write return to file fileName
  809. go to next card
  810. end repeat
  811. close file fileName
  812. set cursor to 1
  813. end mouseUp
  814. </script>
  815.     </part>
  816.     <part>
  817.         <id>47</id>
  818.         <type>button</type>
  819.         <visible> <true /> </visible>
  820.         <reserved5> 0 </reserved5>
  821.         <reserved4> 0 </reserved4>
  822.         <reserved3> 0 </reserved3>
  823.         <reserved2> 0 </reserved2>
  824.         <reserved1> 0 </reserved1>
  825.         <enabled> <true /> </enabled>
  826.         <rect>
  827.             <left>406</left>
  828.             <top>294</top>
  829.             <right>495</right>
  830.             <bottom>316</bottom>
  831.         </rect>
  832.         <style>shadow</style>
  833.         <showName> <true /> </showName>
  834.         <highlight> <false /> </highlight>
  835.         <autoHighlight> <true /> </autoHighlight>
  836.         <sharedHighlight> <false /> </sharedHighlight>
  837.         <family>0</family>
  838.         <titleWidth>0</titleWidth>
  839.         <icon>0</icon>
  840.         <textAlign>center</textAlign>
  841.         <font>Chicago</font>
  842.         <textSize>12</textSize>
  843.         <textStyle>plain</textStyle>
  844.         <name>Import Data</name>
  845.         <script>--to use this button, prepare at least as many HC background fields
  846. --as fields separated by tabs of your text data file
  847. --    by Ted Tripp, 4588 CR 523, Bayfield, CO 81122, 303-884-9029
  848. on mouseUp
  849. ask "Import text from which file?"
  850. if it is empty then exit mouseUp
  851. put it into fileName
  852. open file fileName
  853. set cursor to 4
  854. repeat
  855. read from file fileName until return -- get first record
  856. if it is empty then
  857. doMenu "Delete Card"
  858. close file fileName
  859. exit mouseUp
  860. end if
  861. put it into data
  862. repeat with i = 1 to the number of fields
  863. put offset(tab,data) into num --gets first field (until tab)
  864. if num is 0 then -- last field of record has no tab
  865. put data into field i -- writes last field
  866. delete last char of field i -- deletes return char
  867. if first char of field i is quote┬¼
  868. and last char of field i is quote then --deletes quote marks
  869. delete first char of field i
  870. delete last char of field i
  871. end if
  872. exit repeat -- stops
  873. end if
  874. put char 1 to (num - 1) of data into field i -- writes first field
  875. repeat while last char of field i is tab -- pesky ASCII 9!
  876. delete last char of field i
  877. end repeat
  878. if first char of field i is quote┬¼
  879. and last char of field i is quote then --deletes quote marks
  880. delete first char of field i
  881. delete last char of field i
  882. end if
  883. delete char 1 to num of data -- gets rid of field
  884. end repeat
  885. doMenu "New Card"
  886. end repeat
  887. close file fileName
  888. set cursor to 1
  889. end mouseUp
  890. </script>
  891.     </part>
  892.     <part>
  893.         <id>48</id>
  894.         <type>button</type>
  895.         <visible> <true /> </visible>
  896.         <reserved5> 0 </reserved5>
  897.         <reserved4> 0 </reserved4>
  898.         <reserved3> 0 </reserved3>
  899.         <reserved2> 0 </reserved2>
  900.         <reserved1> 0 </reserved1>
  901.         <enabled> <true /> </enabled>
  902.         <rect>
  903.             <left>27</left>
  904.             <top>234</top>
  905.             <right>72</right>
  906.             <bottom>262</bottom>
  907.         </rect>
  908.         <style>transparent</style>
  909.         <showName> <false /> </showName>
  910.         <highlight> <false /> </highlight>
  911.         <autoHighlight> <false /> </autoHighlight>
  912.         <sharedHighlight> <true /> </sharedHighlight>
  913.         <family>0</family>
  914.         <titleWidth>0</titleWidth>
  915.         <icon>9172</icon>
  916.         <textAlign>center</textAlign>
  917.         <font>Chicago</font>
  918.         <textSize>12</textSize>
  919.         <textStyle>plain</textStyle>
  920.         <name>Back to Radio</name>
  921.         <script>on mouseUp
  922. visual effect iris close
  923. go to stack "Radio"
  924. end mouseUp
  925. </script>
  926.     </part>
  927.     <name></name>
  928.     <script>on import
  929. repeat for the number of cards
  930. get field "first name"
  931. if it is not empty then
  932. put it into field "name"
  933. put space after field "name"
  934. end if
  935. get field "last name"
  936. if it is not empty then
  937. put it after field "name"
  938. end if
  939. go to next card
  940. end repeat
  941. end import
  942. </script>
  943. </background>
  944.